home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / AddToAlias.zprx < prev    next >
Text File  |  1994-11-20  |  4KB  |  126 lines
  1. /*
  2.     $VER: AddToAlias.zprx 1.01 (30-Oct-94) Copyright (c) Nils Görs
  3.  
  4.     Dies ist ein  ARexx-Script für  Zodiac's Point mit  dem die Netz-
  5.     adresse der aktuellen Nachricht automatisch in die Aliasliste ge-
  6.     speichert wird.
  7.  
  8.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  9.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  10.     nicht ohne Erlaubnis des Autors.
  11.  
  12.     Sie erreichen den Autor wie folgt:
  13.  
  14.        Nils Görs              Tel. : +49 (0)202 784258
  15.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.wupper.de
  16.        42329 Wuppertal          oder über das ZP-Support-Brett.
  17.  
  18.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  19.  
  20.  
  21.     Hinweise zur Installation:
  22.  
  23.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  24.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  25.     "F1:SYS:Rexxc/RX ZPOINT:Rexx/AddToAlias.zprx %s" hinzu.
  26.  
  27.  
  28. V1.00  > V1.01:  Es wird nun automatisch erkannt, ob die Adresse schon
  29. in Ihrer Liste vorhanden ist.                                      */
  30.  
  31.  
  32. /* Wo befindet sich ihre Aliasliste ??? */
  33.  
  34. Filename = "Zodiac:Bretter/alias.zp"
  35. /* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  36.  *      Bitte geben Sie hier ihre Präferenzen ein !                *
  37.  *******************************************************************/
  38.  
  39. /*******************************************************************
  40.  *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
  41.  *******************************************************************/
  42.  
  43. NL = '0a'x                      /* Zeichen für Zeilenumbruch */
  44.  
  45. OPTIONS RESULTS
  46.  
  47. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  48. PARSE ARG zpPort
  49. IF zpPort == "" THEN
  50.    zpPort = "ZPoint"
  51. ADDRESS VALUE zpPort
  52.  
  53. WHICHLEVEL
  54.  IF (RESULT ~== 'BOARD') THEN
  55.  DO
  56.   requestnotify "nicht im Brett!"
  57.   EXIT
  58.  END
  59.  ELSE
  60.  
  61. MESSAGEINFO AUTHOR
  62. Username=Result
  63.  
  64.  IF ~OPEN(Alias.dat,Filename,Read) THEN
  65.    DO
  66.     requestnotify "Konnte" Filename "nicht finden!"
  67.    EXIT
  68.    END
  69.   ELSE
  70.  
  71.   Bool=VERIFY(Username," ",MATCH)            /* Aus wievielen Zeichen besteht die Netzadresse ?? */
  72. IF Bool ~== 0 THEN
  73.  DO
  74.   BoolEnd=VERIFY(Username,")",MATCH)            /* Wo endet der Realname ?? */
  75.   Bool=Bool-1
  76.  
  77.   Netzadresse=LEFT(Username,bool)            /* Netzadresse rauskopieren */
  78.   Boolend=Boolend-Bool-1
  79.   Realname=RIGHT(Username,boolend)                      /* Realnamen rauskopieren */
  80.  
  81. Realname=COMPRESS(Realname,"()")            /* ( und ) werden aus String entfernt */
  82.  
  83.  
  84.   CALL AddToAlias
  85.  
  86.  EXIT
  87.  END
  88. ELSE
  89.  requeststring 'PROMPT "Bitte den _UserNamen eingeben"'
  90.  Realname=result
  91.  IF (Realname ~== '') THEN
  92.   DO
  93.   Netzadresse=Username
  94.   CALL AddToAlias
  95.   END
  96.  
  97.  ELSE
  98.  RequestNotify 'Kein Name eingegeben!'
  99.  EXIT
  100.  
  101. AddToAlias:
  102.  DO
  103.   Realname=INSERT(NL"N:",Realname)            /* [CR] und N: vor den Realnamen */
  104.   Netzadresse=INSERT("A:",Netzadresse)            /* A: vor die Netzadresse */
  105.  
  106.    DO WHILE ~EOF(Alias.dat)
  107.     InString=READLN(Alias.dat)
  108.     Ergebniss=INDEX(InString,Netzadresse)
  109.  
  110.      IF Ergebniss == 1 THEN
  111.       DO
  112.        requestnotify Username||NL"befindet sich schon in Ihrer Aliasliste!"
  113.        EXIT
  114.       END
  115.    END
  116.  
  117.   Netzadresse=INSERT(Netzadresse,NL"-")            /* [CR] und - an das Ende */
  118.   CALL SEEK(Alias.dat,0,"E")                /* zum Ende des Files springen */
  119.   CALL WRITELN(Alias.dat,Realname)            /* Realnamen anfügen */
  120.   CALL SEEK(Alias.dat,0,"E")                /* zum Ende des Files springen */
  121.   CALL WRITELN(Alias.dat,Netzadresse)            /* Netzadresse anfügen */
  122.   CALL SEEK(Alias.dat,0,"E")                /* zum Ende des Files springen */
  123.   requestnotify Username||NL"wurde in Ihre Aliasliste aufnommen!"
  124.  
  125.  END
  126.